home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 1 (Walnut Creek)
/
Aminet - June 1993 [Walnut Creek].iso
/
aminet
/
dev
/
lang
/
bcpl4amiga.lha
/
bcpl
/
CGHDR
< prev
next >
Wrap
Text File
|
1988-03-24
|
5KB
|
220 lines
GLOBAL $(
PRSOURCE: 110
QUIET:129
SYSOPT:320; SYSIPT:321; SYSPCH:322; CODESTREAM:323; DIAGNOSTICS:326
REPORTCOUNT:331; REPORTMAX:332
$)
MANIFEST $(
H1=0; H2=1; H3=2; H4=3; H5=4
ERROR=0; NUMBER=1; LOC=2; GLOB=3; LAB=4
LVLOC=5; LVGLOB=6; LVLAB=7; REG=8; FREG=9
$)
MANIFEST // OCODE operators and other constants
$( C.TRUE=4; C.FALSE=5
C.RV=8; C.FNAP=10
C.MULT=11; C.DIV=12; C.REM=13; C.PLUS=14; C.MINUS=15; C.NEG=17
C.FIX=18; C.ABS=19
C.EQ=20; C.NE=21; C.LS=22; C.GR=23; C.LE=24; C.GE=25
C.SLCTAP=27
C.NOT=30; C.LSHIFT=31; C.RSHIFT=32; C.LOGAND=33; C.LOGOR=34
C.EQV=35; C.NEQV=36
C.NEEDS=48; C.SECTION=49
C.RTAP=51; C.GOTO=52;
C.FINISH=68
C.SWITCHON=70; C.GLOBAL=76
C.LP=40; C.LG=41; C.LN=42; C.LSTR=43; C.LL=44
C.LLP=45; C.LLG=46; C.LLL=47
C.SP=80; C.SG=81; C.SL=82; C.STIND=83; C.SLCTST=84
C.JUMP=85; C.JT=86; C.JF=87
C.LAB=90; C.STACK=91; C.STORE=92; C.RSTACK=93; C.ENTRY=94
C.SAVE=95; C.FNRN=96; C.RTRN=97; C.RES=98
C.DATALAB=100; C.ITEML=101; C.ITEMN=102; C.ENDPROC=103
C.END=104; C.STARTBLOCK=105; C.ENDBLOCK=106; C.DEBUG=107
C.MOD=110; C.MODSLCT=111
C.GETBYTE=120; C.PUTBYTE=121
C.FMULT=267; C.FDIV=268; C.FPLUS=270; C.FMINUS=271; C.FNEG=273
C.FLOAT=274; C.FABS=275
C.FEQ=276; C.FNE=277; C.FLS=278; C.FGR=279; C.FLE=280; C.FGE=281
FLBIT=256
$)
GLOBAL $(
MEMBERNAMEING:334; SECTIONNAME:336
WORKBASE:350; WORKTOP:351
OBUFB:353; CGWORKVEC:355
GETBYTES:370
CODEGEN:390
$)
GLOBAL $( // BCG0
BINING:401; LISTING:403
DECK:405; CGTRACE:406; LISTDECK:407
SEQNUMB:410; INCODE:412
COUNTFLAG:415; CALLCOUNTING:416; COUNTING:417
STINDRET:418; STKCKING:419
$)
GLOBAL $( // BCG1
READOP:430; READN:431; READL:432; READGN:433
$)
GLOBAL $( // BCG2
CG370:450; CGREPORT:451; CGMESSAGE:452
NEXTPARAM:455; INITSTACK:456; LOAD:457
LOSE:460; STACK:461; STORE:462
STORET:465; USING:466; NEXTR:467; FREEREG:468
TEMPV:470; TEMPT:471; SSP:472
ARG1:475; ARG2:476; LABV:477; PARAMNUMBER:478
ENDLAB:480; HLAB:481; FLAB:482; SLAB:483
MAXGN:487; MAXL:488
$)
GLOBAL $( // BCG3
SCAN:490; OP:491
$)
GLOBAL $( // BCG4
CGSWITCH:500; LABVECSWITCH:501; BINTREESWITCH:502
CASEK:505; CASEL:506
CGENTRY:510; CGSAVE:511; CGENDPROC:512; CGAPPLY:513
$)
GLOBAL $( // BCG5
CGSTIND:520; CGMULT:521; CGPLUS:522
CGASSOP:523
CGRELOP:525; CONDITION:526; CGSHIFT:527
CGLOGOP:528
CGBYTEAP:529
$)
GLOBAL $( // BCG6
CGSTRING:530; CGGLOBAL:531; GENDATA:532
DATA:535; SDATA:536; FDATA:537; HDATA:538
FREF:540; HREF:541; XREF:542
INITDATALISTS:545; MAP1:546; MAP2:547
DP:550; DATAP:551; DATALIST:552
XREFP:553; XREFLIST:554
SDATAP:555; SDATALIST:556; STRINGADDR:557
NEEDSP:558; NEEDSLIST:559
FDATAP:560; FDATALIST:561; HDATAP:562; HDATALIST:563
FREFP:565; FREFLIST:566; HREFP:567; HREFLIST:568
$)
GLOBAL $(
NAMING:570; NAMEL:571; NAMET:572; NAMES:574
BLOCKLABEL:578; PROCLABEL:579
$)
GLOBAL $( // BCG7
COMPILE:580; MOVETOANYCR:581; MOVETOANYR:582
MOVETOR:585; CLASS:586
GENRHFK:590; GENRHF:591; GENRF:592; SETRTOK:593
$)
GLOBAL $( // BCG8
GENRXA:600; ADJUSTADDR:601; GENRXL:602
GENSIA:603
GENRS:605; GENRR:606; JUMP:607; CONDJUMP:608
GENLAB:610; GENDCF:611; GENDCA:612; GENDCAX:613
GENDCH:615; GENDCAL2:616; GENDCX:617
CSECTN1:618; CSECTN2:619
CNOP:620; INSERTCOUNT:621; CGSTART:622; CGEND:623
CSECTFLAG:624
FNHREF:625; FNFREF:626; PUTHW:627; PUTFW:628
TXTV:630; TXTP:631; TP:632; LEFTHW:633
BASE:635; BASELAB:636; BASEADDR:637
BASEFRMLAB:638; BASEFRMADDR:639; BASEFRMSIZE:640
BASEOVRFLW:641
GENSTKCK1:642; GENSTKCK2:643
$)
GLOBAL $( // BCG9
OPCODE:644
WRCARD:645; BINTOX:646; CARDWORD:647; DECKOUT:648
CW:649
$)
GLOBAL $( // floating-point things
USINGF:650; NEXTFR:651; FREEFREG:652
MOVETOFR:653; MOVETOANYFR:654
GENFRHF:655
CGFLOAT:660; FLOATL:661; CGFIX:662; FIXL:663
CGFSYM:665; CGFASYM:666
$)
GLOBAL $(
CGSLCTST:671
$)
GLOBAL $(
DISCARDREGS:675; DISCARDREG:676; DISCARDADDRESS:677
LOADADDRESS:678; MOVESTOR:679; MOVERTOR:680; STORER:681
PRINTREGLIST:682; DEBUG:684
REGLIST:685
LOOKFOR:688
LOCK:690; UNLOCK:691; LOCKED:692
$)
MANIFEST $(
R.K4=1; R.K8=2; R.K12=3
R.B=4; R.P=5; R.L=6; R.A1=7
R.A2=8; R.A3=9; R.A4=10; R.S=11
R.G=12; R.A=14; R.W=15
FR.A=0; FR.B=2; FR.C=4; FR.D=6
M.LS=4; M.GE=10; M.GR=2; M.LE=12
M.EQ=8; M.NE=7; M.ALL=15
S.COUNT=20; S.FIN=40; S.STKCK=60; S.STKCKCOUNT=80
K4=4096; K8=8192; K12=12288; K32=32768
HWBITS=65535
FWSP=96 // work-space for fix, float (relative to b13)
MCWD = 32 // number of bits in a word for the compiler
FRTYPE=0; RTYPE=1; KTYPE=2; ATYPE=3
$)
MANIFEST $( // IBM 370 op codes
F.BALR=#X05; F.BAL=#X45
F.BCR =#X07; F.BC =#X47
F.ST =#X50; F.STH=#X40; F.STM=#X90
F.STC=#X42; F.MVI=#X92
F.NR =#X14; F.N =#X54; F.NI =#X94
F.OR =#X16; F.O =#X56; F.OI=#X96
F.XR =#X17; F.X =#X57
F.LR =#X18; F.L =#X58; F.LH =#X48; F.LM =#X98
F.CR =#X19; F.C =#X59; F.CH =#X49
F.AR =#X1A; F.A =#X5A; F.AH =#X4A
F.SR =#X1B; F.S =#X5B; F.SH =#X4B
F.MR =#X1C; F.M =#X5C; F.MH =#X4C
F.DR =#X1D; F.D =#X5D
F.LA =#X41
F.LPR =#X10; F.LCR=#X13
F.SRL =#X88; F.SLL=#X89
F.SRDA=#X8E
F.IC =#X43; F.TM =#X91
// floating-point op-codes
F.LPER=#X30
F.LTER=#X32
F.LCER=#X33
F.LER=#X38; F.LE=#X78
F.CER=#X39; F.CE=#X79
F.AER=#X3A; F.AE=#X7A
F.SER=#X3B; F.SE=#X7B
F.MER=#X3C; F.ME=#X7C
F.DER=#X3D; F.DE=#X7D
F.STE=#X70
F.AW=#X6E; F.SDR=#X2B; F.AD=#X6A
F.STD=#X60
$)